perm filename E.DIF[ALS,ALS] blob
sn#161627 filedate 1975-06-02 generic text, type T, neo UTF8
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 1,1
******** E.40[CSP,SYS] **** PAGE 1 LINE 64
1) C00166 00062 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
1) C00168 00063 DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
1) C00170 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
1) C00174 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
1) C00176 00066 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
1) C00178 00067 TYI, TYIT, TYIU
1) C00179 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
1) C00185 00069 TMPWRT, BKPWRT
1) C00188 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
1) C00190 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
1) C00191 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
1) C00193 00073 UTYPR, UTYPR1, USORRY, UFATAL,FATFIX,TELLX,TELLZ
1) C00197 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
1) C00201 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2,RLDCHK
1) C00207 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
1) C00209 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
1) C00211 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
1) C00212 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV, TSINT, TSNINT
1) C00215 00080 FSINI, FSINI1, MORCOR
1) C00218 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
1) C00219 00082 FSNEWT, FSNEWP, FSNEW
1) C00220 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
1) C00222 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
1) C00224 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
1) C00226 00086 FSBLT, POPTJ, FSBLT1
1) C00227 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
1) C00228 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
1) C00230 00089 FSGIVE, FSGIV1, FSGIV2
1) C00231 00090 CORCHK, CRUNCH, CMPACT
1) C00233 00091 ENDSET, ENDFIX
1) C00234 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
1) C00236 00093 FUCHK, MOVIT, MOVTX
1) C00238 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
1) C00240 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) C00243 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
1) C00245 00097 SAVIT
1) C00246 00098 CHECK, CHECK1, CHECK2
1) C00247 00099 CHKDIR, CHKDPL
1) C00249 00100
1) C00251 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
1) C00252 00102 CHKPAG, CHKPGP
1) C00253 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
1) C00255 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
1) C00256 00105 CHKATT, CHKNAT
1) C00257 00106 CTAB 0-37
1) C00261 00107 CTAB 40-77
1) C00263 00108 CTAB 100-137
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 1,1
1) C00265 00109 CTAB 140-177
1) C00267 00110 GETDIR
1) C00271 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
1) C00273 00112 DIRLIN, DIRLUP, DIRDON
1) C00276 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
1) C00279 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
1) C00281 00115 COPCOR, COPCHK, YESCHK, COPCMD
1) C00282 00116 FORMAT, FMTOK, FMTDSP
1) C00288 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
1) C00289 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
1) C00291 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
1) C00293 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
1) C00295 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
1) C00297 00122 CREATE, CREAT2, CTEXT
1) C00299 00123 RDPAGE, RDPGOK, RDSPAG, RDPAG0
1) C00301 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
1) C00303 00125 RDLCR, RDLLF, NUMSTR,NUMSIX,OCTSTR,OCTASC
1) C00306 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
1) C00308 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
1) C00310 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
1) C00312 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
1) C00313 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
1) C00315 00131 DIRGET, DIRGL, DGEND, DRGSET
1) C00317 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
1) C00319 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
1) C00321 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
1) C00323 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
1) C00325 00136 IDNUL, IDDON, IDDONS
1) C00327 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
1) C00328 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
1) C00330 00139 DISPLAY DATA STORAGE
1) C00332 00140 MORE DISPLAY STORAGE
1) C00333 00141 HEADERS & TRAILERS
1) C00334 00142 DPYINI, DPYCHK
1) C00337 00143 DPYI2, NODPY, WIPE, IWIPE
1) C00339 00144 SETSCR, NMVARR, MOVARR, SETARR
1) C00341 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
1) C00343 00146 DISP, DISP0, DISP1, DISP2
1) C00345 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
1) C00347 00148 DISPAT, DISPAX
1) C00348 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
1) C00350 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
1) C00351 00151 IIIARR, IIIAR2, IIIAR3
1) C00353 00152 LESET, LEADJ, LECLR
1) C00354 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
1) C00356 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
1) C00357 00155 DDISP, DDISP2
1) C00358 00156 DOARR, DOAR2, OFFARR, ONARR
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 1,1
1) C00359 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
1) C00361 00158 DSPSAT, DSPSAX
1) C00362 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
1) C00364 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
1) C00366 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
1) C00367 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
1) C00369 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
1) C00370 00164 WRPX3, WRPX4
1) C00371 00165 WRPOK, WRTIT, WRT0
1) C00372 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
1) C00374 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
1) C00376 00168 WRPM, BTAB2
1) C00378 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
1) C00379 00170 TV, RSYS, RUN, RUN1
1) C00382 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
1) C00383 00172 SEARCH ROUTINES
1) C00385 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
1) C00397 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
1) C00404 00175 FINDIT, FOUND, FNDMOV, FNDERR
1) C00408 00176 FIND
1) C00410 00177 DIRSRC, DFERR, SRCDF, SDFCR
1) C00412 00178 SSET, SSET2
1) C00413 00179 SCOMP, SCOMPX, SCOMPR
1) C00415 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
1) C00417 00181 SPARSE
1) C00418 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
1) C00420 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
1) C00422 00184 SSCLP, SSCDSP
1) C00423 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
1) C00425 00186 SGNOT
1) C00426 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
1) C00428 00188 SBBRCH, SBBR2
1) C00429 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
1) C00430 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
1) C00432 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) C00434 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
1) C00436 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
1) C00437 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
1) C00439 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
1) C00441 00196 SCCOM, SCCNOT
1) C00442 00197 SCCBIT
1) C00443 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
1) C00445 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
1) C00447 00200 SCGEN
1) C00448 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
1) C00450 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
1) C00452 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
1) C00454 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 1,1
1) C00456 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
1) C00458 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
1) C00460 00207 SRCPAG, SRCPG1
1) C00462 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
1) C00463 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
1) C00464 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
1) C00465 00211 SRCSET, SRCST1, SRCSTL, SRCST2
1) C00466 00212 SCALL, SRCHX, SRCHLX
1) C00467 00213 SCNBAK, SCNBKL
1) C00469 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
1) C00471 00215 SRCFF, SFFNUL, SGTACS, SRTACS
1) C00472 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
1) C00473 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
1) C00483 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
1) C00486 00219 JUSMAR
1) C00491 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
1) C00494 00221 NXTLIN, NXTLN2, JTAB, NXTBL
1) C00500 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
1) C00504 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
1) C00506 00224 JDFIN
1) C00509 00225 JDFIN2, JSET, JSET2
1) C00511 00226 INDENT,ALINE,CENTER,JLEFT,JOIN
1) C00514 00227 LEFMAR,SHIFTY
1) C00518 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
1) C00520 00229 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
1) C00522 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST
1) C00534 00231 LAMBDA,EPSIL,NWFILE,HOME,QUERY,HOMEG,LAMBDG
1) C00543 00232 ********* BEG OF ESSAY DEFS *********
1) C00562 00233 SUBSTR
1) C00573 00234 SPOOLC
1) C00578 00235 BEGIN SPSUB
1) C00585 00236 TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
1) C00592 00237 TELLME,FBI
1) C00605 00238 PDL, PATCH, PAT, ZVARS, LEGTAB
1) C00607 ENDMK
1) C⊗;
*** E[CSP,SYS] *** PAGE 1 LINE 64
2) C00167 00062 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
2) C00169 00063 DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
2) C00172 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
2) C00176 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
2) C00178 00066 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
2) C00180 00067 TYI, TYIT, TYIU
2) C00181 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
2) C00187 00069 TMPWRT, BKPWRT
2) C00190 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
2) C00192 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
2) C00193 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 1,1
2) C00195 00073 UTYPR, UTYPR1, USORRY, UFATAL,FATFIX,TELLX,TELLZ
2) C00199 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
2) C00203 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2,RLDCHK
2) C00209 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
2) C00211 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
2) C00213 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
2) C00214 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV, TSINT, TSNINT
2) C00217 00080 FSINI, FSINI1, MORCOR
2) C00220 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
2) C00221 00082 FSNEWT, FSNEWP, FSNEW
2) C00222 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
2) C00224 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
2) C00226 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
2) C00228 00086 FSBLT, POPTJ, FSBLT1
2) C00229 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
2) C00230 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
2) C00232 00089 FSGIVE, FSGIV1, FSGIV2
2) C00233 00090 CORCHK, CRUNCH, CMPACT
2) C00235 00091 ENDSET, ENDFIX
2) C00236 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
2) C00238 00093 FUCHK, MOVIT, MOVTX
2) C00240 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
2) C00242 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
2) C00245 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
2) C00247 00097 SAVIT
2) C00248 00098 CHECK, CHECK1, CHECK2
2) C00249 00099 CHKDIR, CHKDPL
2) C00251 00100
2) C00253 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
2) C00254 00102 CHKPAG, CHKPGP
2) C00255 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
2) C00257 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
2) C00258 00105 CHKATT, CHKNAT
2) C00259 00106 CTAB 0-37
2) C00263 00107 CTAB 40-77
2) C00265 00108 CTAB 100-137
2) C00267 00109 CTAB 140-177
2) C00269 00110 GETDIR
2) C00273 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
2) C00275 00112 DIRLIN, DIRLUP, DIRDON
2) C00278 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
2) C00281 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
2) C00283 00115 COPCOR, COPCHK, YESCHK, COPCMD
2) C00284 00116 FORMAT, FMTOK, FMTDSP
2) C00290 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
2) C00291 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
2) C00293 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
2) C00295 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 1,1
2) C00297 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
2) C00299 00122 CREATE, CREAT2, CTEXT
2) C00301 00123 RDPAGE, RDPGOK, RDSPAG, RDPAG0
2) C00303 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
2) C00306 00125 RDLCR, RDLLF, NUMSTR,NUMSIX,OCTSTR,OCTASC
2) C00309 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
2) C00311 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
2) C00313 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
2) C00315 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
2) C00316 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
2) C00318 00131 DIRGET, DIRGL, DGEND, DRGSET
2) C00320 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
2) C00322 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
2) C00324 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
2) C00326 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
2) C00328 00136 IDNUL, IDDON, IDDONS
2) C00330 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
2) C00331 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
2) C00333 00139 DISPLAY DATA STORAGE
2) C00335 00140 MORE DISPLAY STORAGE
2) C00336 00141 HEADERS & TRAILERS
2) C00337 00142 DPYINI, DPYCHK
2) C00340 00143 DPYI2, NODPY, WIPE, IWIPE
2) C00342 00144 SETSCR, NMVARR, MOVARR, SETARR
2) C00344 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
2) C00346 00146 DISP, DISP0, DISP1, DISP2
2) C00348 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
2) C00350 00148 DISPAT, DISPAX
2) C00351 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
2) C00353 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
2) C00354 00151 IIIARR, IIIAR2, IIIAR3
2) C00356 00152 LESET, LEADJ, LECLR
2) C00357 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
2) C00359 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
2) C00360 00155 DDISP, DDISP2
2) C00361 00156 DOARR, DOAR2, OFFARR, ONARR
2) C00362 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
2) C00364 00158 DSPSAT, DSPSAX
2) C00365 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
2) C00367 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
2) C00369 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
2) C00370 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
2) C00372 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
2) C00373 00164 WRPX3, WRPX4
2) C00374 00165 WRPOK, WRTIT, WRT0
2) C00375 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
2) C00377 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
2) C00379 00168 WRPM, BTAB2
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 1,1
2) C00381 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
2) C00382 00170 TV, RSYS, RUN, RUN1
2) C00385 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
2) C00386 00172 SEARCH ROUTINES
2) C00388 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
2) C00400 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
2) C00407 00175 FINDIT, FOUND, FNDMOV, FNDERR
2) C00411 00176 FIND
2) C00413 00177 DIRSRC, DFERR, SRCDF, SDFCR
2) C00415 00178 SSET, SSET2
2) C00416 00179 SCOMP, SCOMPX, SCOMPR
2) C00418 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
2) C00420 00181 SPARSE
2) C00421 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
2) C00423 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
2) C00425 00184 SSCLP, SSCDSP
2) C00426 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
2) C00428 00186 SGNOT
2) C00429 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
2) C00431 00188 SBBRCH, SBBR2
2) C00432 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
2) C00433 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
2) C00435 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
2) C00437 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
2) C00439 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
2) C00440 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
2) C00442 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
2) C00444 00196 SCCOM, SCCNOT
2) C00445 00197 SCCBIT
2) C00446 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
2) C00448 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
2) C00450 00200 SCGEN
2) C00451 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
2) C00453 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
2) C00455 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
2) C00457 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
2) C00459 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
2) C00461 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
2) C00463 00207 SRCPAG, SRCPG1
2) C00465 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
2) C00466 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
2) C00467 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
2) C00468 00211 SRCSET, SRCST1, SRCSTL, SRCST2
2) C00469 00212 SCALL, SRCHX, SRCHLX
2) C00470 00213 SCNBAK, SCNBKL
2) C00472 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
2) C00474 00215 SRCFF, SFFNUL, SGTACS, SRTACS
2) C00475 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 1,1
2) C00476 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
2) C00486 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
2) C00489 00219 JUSMAR
2) C00494 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
2) C00497 00221 NXTLIN, NXTLN2, JTAB, NXTBL
2) C00503 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
2) C00507 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
2) C00509 00224 JDFIN
2) C00512 00225 JDFIN2, JSET, JSET2
2) C00514 00226 INDENT,ALINE,CENTER,JLEFT,JOIN
2) C00517 00227 LEFMAR,SHIFTY
2) C00521 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
2) C00523 00229 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
2) C00525 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST
2) C00537 00231 LAMBDA,EPSIL,NWFILE,HOME,QUERY,HOMEG,LAMBDG
2) C00546 00232 ********* BEG OF ESSAY DEFS *********
2) C00565 00233 SUBSTR
2) C00576 00234 SPOOLC
2) C00581 00235 BEGIN SPSUB
2) C00588 00236 TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
2) C00595 00237 TELLME,FBI
2) C00608 00238 PDL, PATCH, PAT, ZVARS, LEGTAB
2) C00610 ENDMK
2) C⊗;
******** E.40[CSP,SYS] **** PAGE 2 LINE 14
1) May 17 E.36 May 20 E.37 May 21 E.38 MAY 23 E.39
1) E.33 With some automatic calling (checksum error and UFATAL calls) Apr. 10 1975.
*** E[CSP,SYS] *** PAGE 2 LINE 14
2) May 17 E.36(P508) May 20 E.37(P508) May 21 E.38(P508)
2) MAY 23 E.39
2) E.33 With some automatic calling (checksum error and UFATAL calls) Apr. 10 1975.
******** E.40[CSP,SYS] **** PAGE 10 LINE 11
1) MOVE T,@SRCFIL+4
*** E[CSP,SYS] *** PAGE 10 LINE 11
2) REPEAT 0,<
2) SETZ T,
2) SKIPN RDONLY ;Don't allow /F in readonly mode.
2) >; allow /F/R
2) MOVM T,FFLINE ;Set at FRD time
2) ; HRRZM T,EDFIL-2 ;Don't let FFLINE exceed 6 digits (HEDNAM space).
2) MOVE T,@SRCFIL+4
******** E.40[CSP,SYS] **** PAGE 61 LINE 9
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 61,61
1) MOVE T,PPN
*** E[CSP,SYS] *** PAGE 61 LINE 9
2) SETZM FFLINE ;When non-zero used to introduce FF's after # lines
2) SETZM EDFIL-2 ;ADDED BY ALS ON JUNE 2
2) MOVE T,PPN
******** E.40[CSP,SYS] **** PAGE 61 LINE 12
1) MOVEM T,-1(D)
1) SETZM 4(D)
*** E[CSP,SYS] *** PAGE 61 LINE 14
2) MOVEM T,-1(D) ;Set default value
2) SETZM 4(D)
******** E.40[CSP,SYS] **** PAGE 63 LINE 25
1)
1) POPJ P,
*** E[CSP,SYS] *** PAGE 63 LINE 25
2) CAIE C,"F"
2) POPJ P,
2) JUMPG A,.+2
2) MOVEI A,=32 ;Default number of lines/page in /F mode.
2) MOVEM A,FFLINE# ;/F means insert FFs every so many lines.
2) MOVM A,FFLINE
2) HRRZM A,EDFIL-2 ;WHY NOT HERE AND NOW? ADDED JUNE 1 BY ALS
2) POPJ P,
******** E.40[CSP,SYS] **** PAGE 63 LINE 56
1) 0
1) EDFIL: BLOCK 6
1) 0
*** E[CSP,SYS] *** PAGE 63 LINE 62
2) 0 ;For /F mode line count.
2) 0 ;For device name.
2) EDFIL: BLOCK 6
2) 0
2) 0
******** E.40[CSP,SYS] **** PAGE 70 LINE 36
1) FILST3: HRRZ A,4(D)
1) CAIE A,777777
1) POPJ P,
1) TYPCHR "/"
1) TYPCHR "N"
1) POPJ P,
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 70,70
*** E[CSP,SYS] *** PAGE 70 LINE 36
2) FILST3: SKIPN -2(D) ;/F mode?
2) JRST FILST4 ;No.
2) TYPCHR "/"
2) TYPDEC -2(D)
2) TYPCHR "F"
2) FILST4: HRRZ A,4(D)
2) CAIN A,777777
2) TYPCHR "/N"
2) POPJ P,
******** E.40[CSP,SYS] **** PAGE 75 LINE 21
1) PUSHJ P,RLDCHK
1) POP P,A
*** E[CSP,SYS] *** PAGE 75 LINE 21
2) TRNE F,REDNLY ;but not if readonly
2) SKIPA
2) PUSHJ P,RLDCHK ;Check if safe to format
2) POP P,A
******** E.40[CSP,SYS] **** PAGE 75 LINE 45
1) PUSHJ P,RLDCHK
1) POP P,A
*** E[CSP,SYS] *** PAGE 75 LINE 47
2) TRNE F,REDNLY ;but not for readonly
2) SKIPA
2) PUSHJ P,RLDCHK ;Check if safe to format
2) TRNN F,REDNLY ;Don't clear /F mode count in /R mode.
2) SETZM EDFIL-2 ;No longer in /F mode.
2) POP P,A
******** E.40[CSP,SYS] **** PAGE 116 LINE 10
1) SKIPE CREASW
*** E[CSP,SYS] *** PAGE 116 LINE 10
2) SKIPN EDFIL-2 ;Been told to reformat so will not ask
2) SKIPE CREASW
******** E.40[CSP,SYS] **** PAGE 118 LINE 39
1) SETZB T,TT
*** E[CSP,SYS] *** PAGE 118 LINE 39
2) SETZM FFLIN2# ;Count lines on this page for /F.
2) SETZB T,TT
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 118,118
******** E.40[CSP,SYS] **** PAGE 120 LINE 18
1) MOVEI C,14
1) MDFF2: JUMPE A,MDFF3
*** E[CSP,SYS] *** PAGE 120 LINE 18
2) MDFF4: MOVEI C,14
2) MDFF2: JUMPE A,MDFF3
******** E.40[CSP,SYS] **** PAGE 121 LINE 17
1) SKIPA DSP,[MDCRCK] ;Table below
1) MD3CR0: MOVEI DSP,MD2DSP ;Table on page 120
*** E[CSP,SYS] *** PAGE 121 LINE 17
2) SKIPE EDFIL-2 ;Are we inserting FFs for /F mode?
2) JRST MD4CR
2) MD4CR0: SKIPA DSP,[MDCRCK] ;Table below
2) MD3CR0: MOVEI DSP,MD2DSP ;Table on page 120
******** E.40[CSP,SYS] **** PAGE 121 LINE 28
1) MDCRCK: JSP C,RDLNUL
*** E[CSP,SYS] *** PAGE 121 LINE 30
2) MD4CR: AOS DSP,FFLIN2 ;Count another line on this page.
2) CAMGE DSP,EDFIL-2 ;Time to insert another FF?
2) JRST MD4CR0 ;No.
2) MOVEI DSP,MDLFCK
2) GETCH2 H,G
2) ADD G,[070000,,0] ;Back up byte pointer to save char for next time.
2) JRST MDFF4 ;Go insert FF.
2) MDLFCK: JSP C,RDLNUL
2) PUSHJ P,RLD
2) JFCL
2) JRST MDFF4 ;Turn the LF into a FF.
2) JFCL
2) JRST MDFF2 ;Got a real FF.
2) MOVEI C,"}"
2) MDCRCK: JSP C,RDLNUL
******** E.40[CSP,SYS] **** PAGE 124 LINE 14
1) GETCHR
*** E[CSP,SYS] *** PAGE 124 LINE 15
2) REPEAT 1,<
2) SKIPN EDFIL-2 ;Are we in /R/F mode?
2) JRST RDPAG3 ;No.
2) GETCHR
2) PUSH P,A
2) MOVE A,[070000,,0]
2) CAIE C,14 ;Is there a real FF here, or only a pseudo-FF?
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 124,124
2) ADDM A,INPNT ;Psuedo. Back up over character that was not FF.
2) POP P,A
2) JRST RDPAG1
2) RDPAG3:
2) >
2) GETCHR
******** E.40[CSP,SYS] **** PAGE 124 LINE 38
1) XCT RDLINS ;SETZB B,TT OR JRST SOSTST
1) RDLLP: GETCH2 H,G
*** E[CSP,SYS] *** PAGE 124 LINE 53
2) REPEAT 1,<
2) SKIPE C,EDFIL-2 ;/F mode line count is kept here.
2) CAMLE C,LINES ;We must be in /R mode to get here.
2) JRST RDLLP3
2) MOVE C,CURPAG ;Page we are reading.
2) CAMN C,DIRPAG ;Directory page?
2) JRST RDLLP3 ;Yes, don't insert FFs on directory page.
2) MOVEI C,14 ;/F mode and time to insert a FF.
2) SETZB B,TT ;RDLINS would have done this.
2) JRST RDLLP+1 ;Jump into GETCH2 macro at RDLLP!
2) RDLLP3:
2) >
2) XCT RDLINS ;SETZB B,TT OR JSP Q,SOSTST
2) RDLLP: GETCH2 H,G
******** E.40[CSP,SYS] **** PAGE 141 LINE 8
1) HEDNAM: BLOCK 6
1) ROFLG: BLOCK 1
*** E[CSP,SYS] *** PAGE 141 LINE 8
2) HEDNAM: BLOCK 7
2) ROFLG: BLOCK 1
******** E.40[CSP,SYS] **** PAGE 141 LINE 21
1) HED2NM: BLOCK 6
1) ROFLG2: BLOCK 1
*** E[CSP,SYS] *** PAGE 141 LINE 21
2) HED2NM: BLOCK 7
2) ROFLG2: BLOCK 1
******** E.40[CSP,SYS] **** PAGE 230 LINE 9
1) -1 Name of device in SIXBIT (DSK, UDP etc)
*** E[CSP,SYS] *** PAGE 230 LINE 9
2) -2 Line count for /F mode.
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 230,230
2) -1 Name of device in SIXBIT (DSK, UDP etc)
******** E.40[CSP,SYS] **** PAGE 230 LINE 43
1) ZENT←←17 ;15 entries per file.
1) ZSIZE←←170 ;ZNUM*ZENT
1) 0
1) 0 ;Needed for initial device name
1) ZDATA: BLOCK 170 ;ZNUM*ZENT Space for file names and data
1) 0
*** E[CSP,SYS] *** PAGE 230 LINE 44
2) ZENT←←20 ;16 entries per file.
2) ZSIZE←←ZNUM*ZENT
2) 0 ;Needed for /F mode line count.
2) 0 ;Needed for initial device name
2) ZDATA: BLOCK ZSIZE ;Space for file names and data
2) 0
******** E.40[CSP,SYS] **** PAGE 230 LINE 68
1) ;Now pack the marks two to the word and store them with rest of the data
*** E[CSP,SYS] *** PAGE 230 LINE 69
2) MOVE TT,EDFIL-2 ;except for this which may have been changed
2) MOVEM TT,ZDATA-2(T)
2) MOVE TT,EDFIL-1 ;This should not be necessary but try it anyway
2) MOVEM TT,ZDATA-1(T)
2) ;Now pack the marks two to the word and store them with rest of the data
******** E.40[CSP,SYS] **** PAGE 230 LINE 146
1) MOVNI TT,6 ;Transfer complete EDFIL (including /N in +4)
1) HRLZS TT ;and device name in EDFIL-1
1) ZLIST4: MOVE C,EDFIL-1(TT)
1) MOVEM C,ZDATA-1(T)
1) ADDI T,1
*** E[CSP,SYS] *** PAGE 230 LINE 151
2) MOVNI TT,10 ;Transfer complete EDFIL (including /N in +4)
2) HRLZS TT ;device name in EDFIL-1 and data in ERFIL-2
2) ZLIST4: MOVE C,EDFIL-2(TT)
2) MOVEM C,ZDATA-2(T)
2) ADDI T,1
******** E.40[CSP,SYS] **** PAGE 231 LINE 58
1) MOVE A,ZDATA-1(T) ;Get device name
*** E[CSP,SYS] *** PAGE 231 LINE 58
2) MOVE A,ZDATA-2(T) ;Get /F mode line count
2) HRRZM A,EDFIL-2
1) E.40[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 06-02-75 10:15 PAGES 231,231
2) MOVE A,ZDATA-1(T) ;Get device name